object Form1: TForm1 Left = 0 Top = 104 Width = 561 Height = 470 Caption = ' J.M.G�as - sigecom@arrakis.es - Demo EditNew Versi�n 2.1 Delph' + 'i 2 - 3' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ShowHint = True OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 92 Top = 16 Width = 32 Height = 13 Caption = 'Label1' Font.Color = clAqua Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 92 Top = 54 Width = 32 Height = 13 Caption = 'Label2' Font.Color = clAqua Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 92 Top = 90 Width = 32 Height = 13 Caption = 'Label3' Font.Color = clAqua Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 276 Top = 16 Width = 32 Height = 13 Caption = 'Label4' Font.Color = clAqua Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 276 Top = 54 Width = 32 Height = 13 Caption = 'Label5' Font.Color = clAqua Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label6: TLabel Left = 276 Top = 90 Width = 32 Height = 13 Caption = 'Label6' Font.Color = clAqua Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label7: TLabel Left = 92 Top = 198 Width = 32 Height = 13 Caption = 'Label7' Font.Color = clAqua Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 8 Top = 16 Width = 33 Height = 13 Caption = 'Integer' end object Label9: TLabel Left = 8 Top = 54 Width = 23 Height = 13 Caption = 'Float' end object Label10: TLabel Left = 8 Top = 90 Width = 59 Height = 13 Caption = 'Integer Align' end object Label11: TLabel Left = 196 Top = 16 Width = 44 Height = 13 Caption = 'Left Align' end object Label12: TLabel Left = 196 Top = 54 Width = 57 Height = 13 Caption = 'Center Align' end object Label13: TLabel Left = 196 Top = 90 Width = 51 Height = 13 Caption = 'Right Align' end object Label14: TLabel Left = 8 Top = 198 Width = 76 Height = 13 Caption = 'First Char Upper' end object Label19: TLabel Left = 196 Top = 126 Width = 77 Height = 13 Caption = 'Width On Focus' end object Label15: TLabel Left = 92 Top = 162 Width = 38 Height = 13 Caption = 'Label15' Font.Color = clAqua Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label20: TLabel Left = 92 Top = 126 Width = 38 Height = 13 Caption = 'Label20' Font.Color = clAqua Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label21: TLabel Left = 8 Top = 162 Width = 39 Height = 13 Caption = 'SetFloat' end object Label22: TLabel Left = 8 Top = 126 Width = 49 Height = 13 Caption = 'SetInteger' end object Label23: TLabel Left = 196 Top = 198 Width = 88 Height = 13 Caption = 'DbEditN - Numeric' end object DbEditN: TLabel Left = 196 Top = 162 Width = 52 Height = 13 Caption = 'MaskEditN' end object SpeedButton1: TSpeedButton Left = 516 Top = 28 Width = 25 Height = 25 Enabled = False Glyph.Data = { 1E010000424D1E010000000000007600000028000000180000000E0000000100 040000000000A800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777788888777 777788888777777F00008777777F77778777777F00008777777F77778777777F 00008777777F77778777777F00008777777F77778777777F00008777777F7777 8777788700008888788777778888F00000000008F77777777778F00000000007 F777777777777F00000000777F777777777777F00000077777F777777777777F 00007777777F777777777777F00777777777F777777777777F77777777777F77 7777} NumGlyphs = 2 OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 516 Top = 60 Width = 25 Height = 25 Enabled = False Glyph.Data = { 1E010000424D1E010000000000007600000028000000180000000E0000000100 040000000000A800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777877777 7777778777777777700877777777777877777777000087777777777787777770 0000087777777777787777000000008777777777778770000000000877777777 7778F00000000008F77F77778778FFFF00007FF7FFFF77778FF7777F00008777 777F77778777777F00008777777F77778777777F00008777777F77778777777F 00008777777F77778777777F00008777777F77778777777FFFFF7777777FFFFF 7777} NumGlyphs = 2 OnClick = SpeedButton2Click end object Label26: TLabel Left = 8 Top = 234 Width = 23 Height = 13 Caption = 'Date' end object Label27: TLabel Left = 8 Top = 270 Width = 23 Height = 13 Caption = 'Time' end object Label28: TLabel Left = 92 Top = 234 Width = 38 Height = 13 Caption = 'Label28' Font.Color = clAqua Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label29: TLabel Left = 92 Top = 270 Width = 38 Height = 13 Caption = 'Label29' Font.Color = clAqua Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label30: TLabel Left = 196 Top = 234 Width = 119 Height = 13 Caption = 'DbEditN - FirstCharUpper' end object EditN1: TEditN Left = 8 Top = 32 Width = 121 Height = 21 Color = clSilver MaxLength = 7 TabOrder = 0 OnChange = EditN1Change ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditType = etInteger EditKeyByTab = #13 EditAlign = etAlignNone EditLengthAlign = 0 EditPrecision = 0 ValueInteger = 11152 ValueDate = 35937.000000000000000000 ValueTime = 0.026158796296296290 TimeSeconds = False FirstCharUpper = False FirstCharUpList = ' (' WidthOnFocus = 0 end object EditN2: TEditN Left = 8 Top = 68 Width = 121 Height = 21 Color = clSilver TabOrder = 1 OnChange = EditN2Change ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditType = etFloat EditKeyByTab = #13 EditAlign = etAlignNone EditLengthAlign = 0 EditPrecision = 2 ValueInteger = 0 ValueDate = 35937.000000000000000000 ValueTime = 0.026158796296296290 TimeSeconds = False FirstCharUpper = False FirstCharUpList = ' (' WidthOnFocus = 0 end object EditN3: TEditN Left = 8 Top = 104 Width = 121 Height = 21 Color = clSilver TabOrder = 2 OnChange = EditN3Change OnExit = EditN3Change ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditType = etInteger EditKeyByTab = #13 EditAlign = etAlignValue EditLengthAlign = 8 EditPrecision = 0 ValueInteger = 0 ValueDate = 35937.000000000000000000 ValueTime = 0.026159490740740740 TimeSeconds = False FirstCharUpper = True FirstCharUpList = ' (' WidthOnFocus = 0 end object EditN4: TEditN Left = 196 Top = 32 Width = 117 Height = 21 Color = clSilver TabOrder = 8 OnChange = EditN4Change ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditType = etString EditKeyByTab = #13 EditAlign = etAlignLeft EditLengthAlign = 15 EditPrecision = 0 ValueInteger = 0 ValueDate = 35937.000000000000000000 ValueTime = 0.026159490740740740 TimeSeconds = False FirstCharUpper = False FirstCharUpList = ' (' WidthOnFocus = 0 end object EditN5: TEditN Left = 196 Top = 68 Width = 117 Height = 21 Color = clSilver TabOrder = 9 OnChange = EditN5Change ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditType = etString EditKeyByTab = #13 EditAlign = etAlignCenter EditLengthAlign = 15 EditPrecision = 0 ValueInteger = 0 ValueDate = 35937.000000000000000000 ValueTime = 0.026159490740740740 TimeSeconds = False FirstCharUpper = False FirstCharUpList = ' (' WidthOnFocus = 0 end object EditN6: TEditN Left = 196 Top = 104 Width = 117 Height = 21 Color = clSilver TabOrder = 10 OnChange = EditN6Change ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditType = etString EditKeyByTab = #13 EditAlign = etAlignRight EditLengthAlign = 15 EditPrecision = 0 ValueInteger = 0 ValueDate = 35937.000000000000000000 ValueTime = 0.026159490740740740 TimeSeconds = False FirstCharUpper = False FirstCharUpList = ' (' WidthOnFocus = 0 end object EditN7: TEditN Left = 8 Top = 212 Width = 121 Height = 21 Color = clSilver TabOrder = 5 OnChange = EditN7Change ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditType = etString EditKeyByTab = #13 EditAlign = etAlignNone EditLengthAlign = 0 EditPrecision = 0 ValueInteger = 0 ValueDate = 35937.000000000000000000 ValueTime = 0.026159490740740740 TimeSeconds = False FirstCharUpper = True FirstCharUpList = ' (' WidthOnFocus = 0 end object Panel1: TPanel Left = 10 Top = 320 Width = 171 Height = 109 TabOrder = 20 object Label16: TLabel Left = 8 Top = 8 Width = 139 Height = 13 Caption = 'EditKeyByTab = #13 (Return)' end object Label17: TLabel Left = 8 Top = 32 Width = 115 Height = 13 Caption = 'ColorOnFocus = clWhite' end object Label18: TLabel Left = 8 Top = 48 Width = 130 Height = 13 Caption = 'ColorOnNotFocus = clSilver' end object Label24: TLabel Left = 8 Top = 72 Width = 128 Height = 13 Caption = 'FontColorOnFocus = clRed' end object Label25: TLabel Left = 8 Top = 88 Width = 152 Height = 13 Caption = 'FontColorOnNotFocus = clBlack' end end object EditN8: TEditN Left = 196 Top = 140 Width = 117 Height = 21 Color = clSilver TabOrder = 11 ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditType = etString EditKeyByTab = #13 EditAlign = etAlignNone EditLengthAlign = 0 EditPrecision = 0 ValueInteger = 0 ValueDate = 35937.000000000000000000 ValueTime = 0.026159490740740740 TimeSeconds = False FirstCharUpper = False FirstCharUpList = ' (' WidthOnFocus = 180 end object BitBtn1: TBitBtn Left = 200 Top = 408 Width = 117 Height = 25 TabOrder = 19 OnClick = BitBtn1Click Kind = bkClose end object EditN9: TEditN Left = 8 Top = 176 Width = 121 Height = 21 Color = clSilver TabOrder = 4 OnChange = EditN9Change ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditType = etFloat EditKeyByTab = #13 EditAlign = etAlignNone EditLengthAlign = 0 EditPrecision = 2 ValueInteger = 0 ValueDate = 35937.000000000000000000 ValueTime = 0.026159490740740740 TimeSeconds = False FirstCharUpper = False FirstCharUpList = ' (' WidthOnFocus = 0 end object EditN10: TEditN Left = 8 Top = 140 Width = 121 Height = 21 Color = clSilver TabOrder = 3 OnChange = EditN10Change ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditType = etInteger EditKeyByTab = #13 EditAlign = etAlignNone EditLengthAlign = 8 EditPrecision = 0 ValueInteger = 0 ValueDate = 35937.000000000000000000 ValueTime = 0.026159490740740740 TimeSeconds = False FirstCharUpper = True FirstCharUpList = ' (' WidthOnFocus = 0 end object MEditN1: TMEditN Left = 196 Top = 176 Width = 117 Height = 21 Color = clSilver EditMask = '!99/99/0000;1;_' MaxLength = 10 TabOrder = 12 Text = ' / / ' ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditKeyByTab = #13 WidthOnFocus = 0 end object BitBtn2: TBitBtn Left = 200 Top = 320 Width = 117 Height = 25 Caption = 'New Array Edit' TabOrder = 15 OnClick = BitBtn2Click Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777711177 77777011117B9B17777700393911B9B177777193939393931777771939093939 3177719093009393917771303930093931777190939393939177771939193939 3177771393919393917771B939393939B9171B939311119B9B17193911777719 B9B1139177777771139171177777777771117777777777777777} end object BitBtn3: TBitBtn Left = 200 Top = 348 Width = 117 Height = 25 Caption = 'Clear Edit' Enabled = False TabOrder = 16 OnClick = BitBtn3Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555 555557777F777555F55500000000555055557777777755F75555005500055055 555577F5777F57555555005550055555555577FF577F5FF55555500550050055 5555577FF77577FF555555005050110555555577F757777FF555555505099910 555555FF75777777FF555005550999910555577F5F77777775F5500505509990 3055577F75F77777575F55005055090B030555775755777575755555555550B0 B03055555F555757575755550555550B0B335555755555757555555555555550 BBB35555F55555575F555550555555550BBB55575555555575F5555555555555 50BB555555555555575F555555555555550B5555555555555575} NumGlyphs = 2 end object BitBtn4: TBitBtn Left = 200 Top = 376 Width = 57 Height = 25 Caption = 'Plus' Enabled = False TabOrder = 17 OnClick = BitBtn4Click Glyph.Data = { DE000000424DDE0000000000000076000000280000000D0000000D0000000100 0400000000006800000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 700077777777777770007777700077777000777770C077777000777770C07777 7000770000C000077000770CCCCCCC077000770000C000077000777770C07777 7000777770C07777700077777000777770007777777777777000777777777777 7000} end object DBEditN1: TDBEditN Left = 196 Top = 212 Width = 117 Height = 21 Hint = 'Change Register with cursor arrow' Color = clSilver MaxLength = 0 TabOrder = 13 OnKeyDown = DBEditN1KeyDown ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditKeyByTab = #13 FirstCharUpper = False FirstCharUpList = ' (' WidthOnFocus = 0 end object BitBtn5: TBitBtn Left = 260 Top = 376 Width = 57 Height = 25 Caption = 'Minus' Enabled = False TabOrder = 18 OnClick = BitBtn4Click Glyph.Data = { DE000000424DDE0000000000000076000000280000000D0000000D0000000100 0400000000006800000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7000777777777777700077777777777770007777777777777000777777777777 70007700000000077000770CCCCCCC0770007700000000077000777777777777 7000777777777777700077777777777770007777777777777000777777777777 7000} end object EditN11: TEditN Left = 8 Top = 248 Width = 121 Height = 21 Color = clSilver TabOrder = 6 OnExit = EditN11Exit ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditType = etDate EditKeyByTab = #13 EditAlign = etAlignNone EditLengthAlign = 0 EditPrecision = 0 ValueInteger = 0 ValueDate = 35937.000000000000000000 ValueTime = 0.026631828703703700 TimeSeconds = False FirstCharUpper = False FirstCharUpList = ' (' WidthOnFocus = 0 end object EditN12: TEditN Left = 8 Top = 284 Width = 121 Height = 21 Color = clSilver TabOrder = 7 OnExit = EditN12Exit ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditType = etTime EditKeyByTab = #13 EditAlign = etAlignNone EditLengthAlign = 0 EditPrecision = 0 ValueInteger = 0 ValueDate = 35937.000000000000000000 ValueTime = 0.026631828703703700 TimeSeconds = True FirstCharUpper = False FirstCharUpList = ' (' WidthOnFocus = 0 end object DBEditN2: TDBEditN Left = 196 Top = 248 Width = 117 Height = 21 Hint = 'Change Register with cursor arrow' Color = clSilver MaxLength = 0 TabOrder = 14 OnKeyDown = DBEditN1KeyDown ColorOnFocus = clWhite ColorOnNotFocus = clSilver FontColorOnFocus = clRed FontColorOnNotFocus = clBlack EditKeyByTab = #13 FirstCharUpper = True FirstCharUpList = ' (' WidthOnFocus = 0 end object Table1: TTable Left = 328 Top = 208 end object DataSource1: TDataSource DataSet = Table1 Left = 384 Top = 208 end end